home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 1 / Pier Shareware 1.iso / 007a / courspas.exe / CHAP12.EXE / LISTE1.PAS < prev    next >
Pascal/Delphi Source File  |  1991-01-06  |  1KB  |  64 lines
  1. program DemoListes1;  {LISTE1.PAS}
  2. uses
  3.   crt;  { unité de Turbo Pascal 6 }
  4.  
  5. type
  6.   pointeur = ^person;
  7.   person   = record
  8.                nom    : string[30];
  9.                age    : integer;
  10.                suivant: pointeur;
  11.              end;
  12.  
  13. var
  14.   p,origine: pointeur;
  15.  
  16. {------------------------------------------------}
  17. { creer_liste                                    }
  18. {------------------------------------------------}
  19. procedure creer_liste;
  20. begin
  21.   clrscr;
  22.   Writeln('Introduisez le nom et l''âge des personnes.');
  23.   writeln('<CR> terminera la saisie');
  24.   writeln;
  25.   origine:=nil;
  26.   new(p);
  27.   write('Nom: ');
  28.   readln(p^.nom);
  29.   while p^.nom <> '' do
  30.   begin
  31.     write('Age: ');
  32.     readln(p^.age);
  33.     writeln;
  34.     p^.suivant:= origine;
  35.     origine:=p;
  36.     new(p);
  37.     write('Nom: ');
  38.     readln(p^.nom);
  39.   end;
  40. end;
  41. {------------------------------------------------}
  42. { afficher_liste                                 }
  43. {------------------------------------------------}
  44. procedure afficher_liste;
  45. begin
  46.   clrscr;
  47.   p:=origine;
  48.   while p<>nil do
  49.   begin;
  50.     writeln('Nom: ',p^.nom,
  51.             ' ':15-length(p^.nom),'âge: ',p^.age);
  52.     p:=p^.suivant;
  53.   end;
  54.   writeln;
  55.   writeln('Veuillez frapper <CR>');
  56.   readln;
  57. end;
  58. {------------------------------------------------}
  59.  
  60. begin { programme principal }
  61.   creer_liste;
  62.   afficher_liste;
  63. end.
  64.